home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 051-060 / amok56 / m2maker / txt / xcopy.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  33 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    M2Maker
  3.   :Author.     Thomas Stolze
  4.   :Address.    Goslarsche Str. 32, W-3000 Hannover 21, Germany
  5.   :Phone.      (0)511 / 75 10 77
  6.   :Version.    V2.0
  7.   :Date.       09-Feb-91
  8.   :Copyright.  Shareware
  9.   :Language.   Modula-2
  10.   :Translator. M2Amiga V3.32d
  11.   :Contents.   Programming Utility.
  12.   :Remark.     Supports the M2Amiga System (C) by A+L AG Switzerland
  13. ---------------------------------------------------------------------------*)
  14. DEFINITION MODULE XCopy;
  15.  
  16. FROM DosD IMPORT Date,FileLockPtr;
  17.  
  18. TYPE XType = (all,txt,single,deleteAllFiles,deleteSingleFile);
  19.  
  20. (* all, txt :
  21.    In "src" muß ein vollständiger Dateipfad angegeben werden
  22.    der auf "/" endet.
  23.    In "dest" muß auch ein vollständiger Pfad angegeben werden. Das letzte
  24.    Verzeichnis von "src" wird auf dem Bestimmungsmedium angelegt." *)
  25.  
  26. PROCEDURE XCopy(src,dest : ARRAY OF CHAR; type : XType): BOOLEAN;
  27.  
  28. PROCEDURE GetFileDosDate(name : ARRAY OF CHAR; VAR time : Date): BOOLEAN;
  29. PROCEDURE SetOneDate(name        : ARRAY OF CHAR;
  30.                      date        : Date;
  31.                      currentLock : LONGINT): BOOLEAN;
  32. END XCopy.
  33.